﻿Partial Public Class DBMainContext

    Public Sub CustomSubmitChanges()
        Try
            Me.SubmitChanges()
            Outils.ErrorProviderFunctions.DispatchToActivityBox(Outils.ErrorProviderFunctions.ErrorType.Info, My.Resources.MessageErreur.SauvegardeReussi)
        Catch ex As Exception
            Outils.ErrorProviderFunctions.DispatchToActivityBox(Outils.ErrorProviderFunctions.ErrorType.Critical, My.Resources.MessageErreur.ErrorSave)
        End Try
    End Sub

End Class
